DEFINITION MODULE AMSetUp;

(*   AMSetUp prepares the screen for the Automata program.

     Version 2.2a    by Mike Dryja   March 1, 1987  *)
    
FROM AMCalc    IMPORT RuleString;
FROM Intuition IMPORT RequesterPtr, ScreenPtr, WindowPtr;

VAR
  AMScreen  : ScreenPtr;    (* Screen pointer for Automata *)
  AMWindow  : WindowPtr;    (* Main display window *)
  AuthorReq,                (* Pointer to author info requester *)
  StringReq : RequesterPtr; (* Pointer to rule requester (a string) *)
  OldRule,
  NewRule   : RuleString;   (* RuleStrings for gadget in requester *)

PROCEDURE PrepareScreen () : BOOLEAN;
  (* Prepares the screen for Automata, returning in AMScreen the screen in
     AMWindow the window for the graphics and in UIWindow the window for
     the user input, for use in AMGraphics *)

PROCEDURE CloseSetUp ();
  (* Closes all of the windows, screens, and libraries opened by Prepare-
     Screen *)

END AMSetUp.

